home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / ada / adaed-1.11 / adaed-1 / Adaed-1.11.0a / machsun.s < prev    next >
Encoding:
Text File  |  1992-02-07  |  1.3 KB  |  111 lines
  1. LL0:
  2.     .data
  3.     .text
  4. |#PROC# 04
  5.     .globl    _word_add
  6. _word_add:
  7.     link    a6,#0
  8.     addl    #-LF12,sp
  9.     moveml    #LS12,sp@
  10.     movl    a6@(8),d0
  11.     moveq    #0,d6
  12.     addl    a6@(12),d0
  13.     jvc    ofla
  14.     moveq    #1,d6
  15. ofla:
  16.     movl    d0,d7
  17.     movl    a6@(16),a0
  18.     movl    d6,a0@
  19.     movl    d7,d0
  20.     jra    LE12
  21.     jra    LE12
  22. LE12:
  23.    LF12 = 8
  24.     moveml    a6@(-LF12),#LS12
  25.     unlk    a6
  26.     rts
  27.     LS12 = 0xc0
  28.     LP12 =    8
  29.     .data
  30.     .text
  31. |#PROC# 04
  32.     .globl    _word_sub
  33. _word_sub:
  34.     link    a6,#0
  35.     addl    #-LF18,sp
  36.     moveml    #LS18,sp@
  37.     movl    a6@(8),d0
  38.     moveq    #0,d6
  39.     subl    a6@(12),d0
  40.     jvc    oflc
  41.     moveq    #1,d6
  42. oflc:
  43.     movl    d0,d7
  44.     movl    a6@(16),a0
  45.     movl    d6,a0@
  46.     movl    d7,d0
  47.     jra    LE18
  48.     jra    LE18
  49. LE18:
  50.    LF18 = 8
  51.     moveml    a6@(-LF18),#LS18
  52.     unlk    a6
  53.     rts
  54.     LS18 = 0xc0
  55.     LP18 =    8
  56.     .data
  57.     .text
  58. |#PROC# 04
  59.     .globl    _long_add
  60. _long_add:
  61.     link    a6,#0
  62.     addl    #-LF21,sp
  63.     moveml    #LS21,sp@
  64.     movl    a6@(8),d0
  65.     moveq    #0,d6
  66.     addl    a6@(12),d0
  67.     jvc    ofld
  68.     moveq    #1,d6
  69. ofld:
  70.     movl    d0,d7
  71.     movl    a6@(16),a0
  72.     movl    d6,a0@
  73.     movl    d7,d0
  74.     jra    LE21
  75.     jra    LE21
  76. LE21:
  77.    LF21 = 8
  78.     moveml    a6@(-LF21),#LS21
  79.     unlk    a6
  80.     rts
  81.     LS21 = 0xc0
  82.     LP21 =    8
  83.     .data
  84.     .text
  85. |#PROC# 04
  86.     .globl    _long_sub
  87. _long_sub:
  88.     link    a6,#0
  89.     addl    #-LF27,sp
  90.     moveml    #LS27,sp@
  91.     movl    a6@(8),d0
  92.     moveq    #0,d6
  93.     subl    a6@(12),d0
  94.     jvc    oflf
  95.     moveq    #1,d6
  96. oflf:
  97.     movl    d0,d7
  98.     movl    a6@(16),a0
  99.     movl    d6,a0@
  100.     movl    d7,d0
  101.     jra    LE27
  102.     jra    LE27
  103. LE27:
  104.    LF27 = 8
  105.     moveml    a6@(-LF27),#LS27
  106.     unlk    a6
  107.     rts
  108.     LS27 = 0xc0
  109.     LP27 =    8
  110.     .data
  111.